10 POKE53281,0:POKE53280,0:GOSUB140
20 PRINT"[147]64 TIMER - STEPHANE ST-LOUIS"
30 FORQ=49152TO49266:READA:POKEQ,A:T=T+A:NEXT:IFT<>9872THENPRINT"DATA ERROR":END
40 DATA120,169,19,141,20,3,169,192,141,21,3,88,96,41,15,24,105,48,96,173,11,220
50 DATA32,13,192,141,32,4,173,10,220,32,13,192,141,35,4,173,9,220,32,13,192,141
60 DATA 38,4,173,11,220,32,110,192,41,1,32,15,192,141,31,4,173,10,220,32,110,192
70 DATA41,7,32,15,192,141,34,4,173,9,220,32,110,192,41,7,32,15,192,141,37,4,169
80 DATA32,141,30,4,141,39,4,169,58,141,33,4,141,36,4,173,8,220,76,49,234,74,74
90 DATA74,74,96
100 INPUT"HOUR  ";H$:IFLEN(H$)>1THEN H=16
110 HH=VAL(RIGHT$(H$,1)):H=H+HH:POKE 56331,H:INPUT"MINUTE";M$
120 IFLEN(M$)>1THENM=16*VAL(LEFT$(M$,1))
130 MM=VAL(RIGHT$(M$,1)):M=M+MM:POKE 56330,M:POKE 56329,0:POKE 56328,0:SYS 49152
135 END
140 PRINT"[147]       [155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
150 PRINT"       [152]    loadstar presents     "
160 PRINT"       [151][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
190 PRINT
200 PRINT"         [172]                    [146][187]"
210 PRINT"                               "
220 PRINT"            6 4   t i[160]m[160]e[160]r    "
230 PRINT"[163][163][163][163][163][163][163][163][163][160]                     [146][163][163][163][163][163][163][163][163][163]";
240 PRINT"         [160]        bY          [160]"
250 PRINT"[163][163][163][163][163][163][163][163][163]                      [146][163][163][163][163][163][163][163][163][163]";
260 PRINT"           sTEPHANE sT-lOUIS  [160]"
270 PRINT"[163][163][163][163][163][163][163][163][163]                     [160][146][163][163][163][163][163][163][163][163][163]";
280 PRINT"          [207]NCE ACTIVATED, THIS "
290 PRINT"            PROGRAM DOES NOT   "
300 PRINT"           RETURN TO [204][207][193][196][211][212][193][210]  "
310 PRINT"         [188]                    [146][190] "
320 PRINT
330 PRINT"       [155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
340 PRINT"       [152] press space[160]to[160]continue  "
350 PRINT"       [151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
352 PRINT"       [155][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
354 PRINT"       [152]  [208][210][197][211][211] [210][197][212][213][210][206] [198][207][210] [205][197][206][213]   "
356 PRINT"       [151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
360 PRINT
370 PRINT"";
380 GETA$:IFA$<>" "ANDA$<>CHR$(13)THEN380
390 IFA$=" "THENRETURN
400 PRINT"[147][144]LOAD"CHR$(34)"ONE-SCREEN WINNERS"CHR$(34)",8"
410 PRINT"RUN"
420 POKE631,13:POKE632,13:POKE198,2:END